#Include "Protheus.ch"

User Function TSTBOL()

ImpBoletim()

Return Nil

// ----------------------------------------------------------------------------------- //

Static Function ImpBoletim()

// 1 - Topo
// 2 - Esquerda
// 3 - Abaixo
// 4 - Direita

Local aMarg  := {50, 50, 50, 50}
Local cTitle := OemToAnsi("Boletim Diversos Queijos")
Local oPrint := Nil

//TMSPrinter(): Box ( [ nRow], [ nCol], [ nBottom], [ nRight], [ uParam5] )

oPrint := TMSPrinter():New(cTitle)
oPrint:SetPaperSize(9)
oPrint:SetLandscape()
oPrint:StartPage()
oPrint:Box(aMarg[1], aMarg[2], oPrint:nVertRes() - aMarg[3], oPrint:nHorzRes() - aMarg[4])
oPrint:EndPage()
oPrint:Preview()

Return Nil

// ----------------------------------------------------------------------------------- //